#!/usr/bin/perl
#giả sử chạy ví dụ này và chuyền vào 2 đối số
$myarg1 = shift or die "Ban. phai truyen doi' so' 1 cho ham`\n";
printf "ban. chuyen` vao` doi' so' 1: %s\n",$myarg1;
$myarg2 = shift or die "Ban. phai truyen doi' so' 2 cho ham` \n";
printf "ban. chuyen` vao` doi' so' 2: %s\n",$myarg2;
